15 lines
288 B
ObjectPascal
15 lines
288 B
ObjectPascal
// Îïåðàòîð âûáîðà
|
|
var x: integer;
|
|
|
|
begin
|
|
writeln('Ââåäèòå îöåíêó (1..5): ');
|
|
readln(x);
|
|
case x of
|
|
1: writeln('Åäèíèöà');
|
|
2: writeln('Äâîéêà');
|
|
3: writeln('Òðîéêà');
|
|
4: writeln('×åòâåðêà');
|
|
5: writeln('Ïÿòåðêà');
|
|
else writeln('Òàêîé îöåíêè íåò');
|
|
end;
|
|
end. |