18 lines
368 B
ObjectPascal
18 lines
368 B
ObjectPascal
// Âëîæåííûå óñëîâíûå îïåðàòîðû
|
|
var x: integer;
|
|
|
|
begin
|
|
writeln('Ââåäèòå îöåíêó (1..5): ');
|
|
readln(x);
|
|
if (x=1) then
|
|
writeln('Åäèíèöà')
|
|
else if (x=2) then
|
|
writeln('Äâîéêà')
|
|
else if (x=3) then
|
|
writeln('Òðîéêà')
|
|
else if (x=4) then
|
|
writeln('×åòâåðêà')
|
|
else if (x=5) then
|
|
writeln('Ïÿòåðêà')
|
|
else writeln('Òàêîé îöåíêè íåò')
|
|
end. |