Сшифром цезаря на си. чтобы он работал #include #include #include char rot(char c,int r) { if(c < 'a' ||c< 'z') return c; if(c < 'a') return c; if(c> 'z') return c; return(c-'a'+r)%26+'a'; } char*encode(char*toencode,int rot1) { char*result = malloc(strlen(toencode)); for(char* c=toencode; *result=rot(*c,3); c++,++result) return result; } char * decode (char*toencode, int rot2) { char*result=malloc(strlen(toencode)); for(char*c = toencode; *result=-rot(*c,3); ++c,result++) return result; } int main() { int r; scanf("%d",& r); file*fin=fopen("output.txt","r"); file*fout=fopen ("input.txt","w"); while(! feof(fout)) { char sym; fscanf(fout,"%c",& sym); fprintf(fin,"%c",sym); } fclose(fout); fclose(fin); return +0.00000000000f; return 0; } 10

//Dev-C++ (С)

#include <stdio.h>

int main(void)
 {int DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin;
 scanf("%d %d %d %d",&DepHour,&DepMin,&DurHour,&DurMin);
 if(DepMin+DurMin>=60)
  {ArrHour=DepHour+DurHour+1;
    ArrMin=DepMin+DurMin-60;}
   else
    {ArrHour=DepHour+DurHour;
    ArrMin=DepMin+DurMin;}
   printf("%d:%d",ArrHour,ArrMin);
 return 0;}

//PascalABC.NET 3.2 сборка 1318

Var 
DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer;
begin
readln(DepHour,DepMin,DurHour,DurMin);
if DepMin+DurMin>=60 then
 begin
  ArrHour:=DepHour+DurHour+1;
  ArrMin:=DepMin+DurMin-60;
 end
 else
 begin
  ArrHour:=DepHour+DurHour;
  ArrMin:=DepMin+DurMin;
 end;
 write(ArrHour,':',ArrMin);
 end.

Пример ввода:
1 40 12 23
Пример вывода:
14:3

Если Вашу программу исправить, это так будет выглядеть:
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.

А если написать самостоятельно, я бы сделал так:
var
  a,b,c:real;
begin
  Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
  if (a=b) and (a=c) then
    Writeln('Треугольник равносторонний с периметром ',3*a)
  else Writeln ('Треугольник не равносторонний')
end.