[Hector]

Здавствуйте! и где попытки самостоятельного решения? тут не занимаются решением лабораторных

[sure777]

Hector, я извиняюсь если это отнимет больше 6 минут у знатока

[Hector]

sure777, вы не поняли, вместо вас не будут решать принципиально не зависимо от сложности. здесь можно получить консультацию или совет, а не готовое решение

[sure777]

Спасибо ру боарду. Вдруг кому понадобится

sure777

1)
var
x,a:integer;
y:real;
begin
writeln('Vvedite a');
read(a);
writeln('Vvedite x');
read(x);
y:=sqrt((sqr(x))+(sqr(a)));
write('Y=',y:2:2);
end.

Добавлено:
2)
var
st1,st2,st3:integer;
p,s:real;
begin
writeln('Vvedite storony treygolnika');
read(st1,st2,st3);
p:=(st1+st2+st3)/2;
s:=sqrt(p*(p-st1)*(p-st2)*(p-st3));
write(s:2:2);
end.

Добавлено:
3)
var
benz,l,x:integer;
stoim,rashod:real;
begin
writeln('Vvedite ceny 1 litra benzina');
read(benz);
writeln('Vvedite rashod benzina');
read(rashod);
writeln('Vvedite rasstoyanie');
read(l);
rashod:=rashod/100;
stoim:=(2*l*rashod)*benz;
write(stoim:2:2);
end.