Монитор системный блок клавиатура мышка
var a,b,c,d:integer;
begin
writeln('Напиши дату основания Санкт-Питербурга(день месяц и год)');
writeln('день');
read(a);
writeln('месяц');
read(b);
writeln('год');
read(c);
if (a=27) and (b=5) and (c=1703) then
writeln('Молодец всё правильно')
else
writeln('Ты где то допустил ошибку');
end.
↓∞Незнаю㏒㏒㏒㏒㏒∦∦㏒ аоіавілдфвлдіволдіфволдфіволдіфволдіфволдіфволдіфволдфівоілдфовліволіволіволіволіовлівооримсчіввввв
Program asdas;
Uses crt;
var ves:real; //real- ибо нужно допустить вес в 3,5 тонны как пример
begin
readln (ves);
if ves<15
then writeln ('недогруз')
else if ves>30
then writeln ('норма');
end.
Var
a,r,x,z:real;
begin
readln(a,r,x);
z:=sqrt(a*sqr(r)*1.2+abs(x))-power(9.008,3);
writeln(z);
<span>end.
</span>