Помогите пожалуйста с информатикой) по программе паскаль ...

Motes

Известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). Какое из расстояний меньше? Program ss; uses crt; var a,b,c,s,s1: integer; Begin clrscr; Writeln('Введите расстояние в километрах:'); readln(a); Writeln('Введите расстояние в футах'); readln(b); writeln('Введите размер одного фута в метрах'); s:=a*1000; s1:=c*b;

if s>s1 then begin write('Расстояние в футах меньше чем в км'); end else writeln('Расстояние в км меньше чем в футах'); writeln(' Программа завершена нажмите '); readln; End.

Известны две скорости: одна в километрах в час, другая—в метрах в секунду. Какая из скоростей больше? program EvGeN; var kilom: real; metr: real; begin kilom := metr * 1.6; write('Введите скорость в кмч: '); readln(kilom); write('Введите скорость в мс: '); readln(metr); if kilom < metr then write('скорость в кмч больше'); if kilom > metr then write('скорость в кмч меньше'); if kilom = metr then write('скорость в кмч равна скорости в мч'); end.

Даны радиус круга и сторона квадрата. У какой фигуры площадь больше Program ploshcad; var R,D,skr,skv:extended; Begin write('Введите радиус круга: '); readln®; write('Введите сторону квадрата'); readln(D); skr:=Pi*sqr®; writeln('Площадь круга: ',skr:10:5); skv:=sqr(D); writeln('Площадь квадрата: ',skv:10:5); If skr=skv then writeln('Площади равный'); If skr>skv then writeln('Площадь круга больше'); If skvp2 then begin writeln('Плотность первого тела больше'); end; if p1