Паскаль ABC.net версии 3.3.5
var
n: word;
begin
write('Введите номер дня недели: ');
readln(n);
case n of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
Самым легким металлом является литий- высказывание